home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 11, No. 08 (1990-08)(MindCraft Publishing)(Side A)[a].zip
/
Nibble Volume 11, No. 08 (1990-08)(MindCraft Publishing)(Side A)[a].po
/
FAST.INPUT.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
764b
|
25 lines
10 REM *************************
20 REM * FAST.INPUT *
30 REM * BY MARK J. YANNONE *
40 REM * COPYRIGHT(C) 1990 *
50 REM * MINDCRAFT PUBL. CORP. *
60 REM * CONCORD, MA 01742 *
70 REM *************************
80 A$ = "": FOR X = 768 TO 790: READ Y: POKE X,Y: NEXT : POKE 51,128: DATA 162,0,32,106,253,160,2,138,145,105,200,169,0,145,105,200,169,2,145,105,76,57,213
90 HOME
100 D$ = CHR$(4)
110 DIM L$(500)
120 ONERR GOTO 240
130 PRINT D$"OPEN FILE"
140 PRINT D$"READ FILE"
150 FOR X = 1 TO 500
160 CALL 768
170 L$(X) = MID$ (A$,1)
180 NEXT
190 PRINT CHR$(4)"CLOSE FILE"
200 FOR Y = 1 TO X
210 PRINT L$(Y)
220 NEXT
230 END
240 IF PEEK(222) = 5 THEN X = X -1: GOTO 190
250 PRINT "ERROR #" PEEK(222)